object Form1: TForm1
  Left = 445
  Top = 135
  Width = 629
  Height = 345
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 184
    Top = 48
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 208
    Top = 112
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 1
  end
  object DBGrid1: TDBGrid
    Left = 287
    Top = 27
    Width = 320
    Height = 282
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=BuildManagement2;Data Source=.'
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 72
  end
  object tblQBAttrib: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'QBAttrib'
    Left = 40
    Top = 112
    object tblQBAttribid: TAutoIncField
      DisplayLabel = #1050#1086#1076
      FieldName = 'id'
      ReadOnly = True
    end
    object tblQBAttribDescription: TStringField
      DisplayLabel = #1054#1087#1080#1089#1072#1085#1080#1077
      FieldName = 'Description'
      Size = 100
    end
    object tblQBAttribFieldName: TStringField
      DisplayLabel = #1048#1084#1103' '#1087#1086#1083#1103
      FieldName = 'FieldName'
      Size = 50
    end
    object tblQBAttribFieldSQL: TStringField
      FieldName = 'FieldSQL'
      Size = 1000
    end
    object tblQBAttribQBEntityID: TIntegerField
      FieldName = 'QBEntityID'
    end
    object tblQBAttribSQLDatatype: TStringField
      FieldName = 'SQLDatatype'
    end
    object tblQBAttribDI_ATTR_TYPE_ID: TIntegerField
      FieldName = 'DI_ATTR_TYPE_ID'
    end
    object tblQBAttribKeyOrder: TIntegerField
      FieldName = 'KeyOrder'
    end
    object tblQBAttribIsVisible: TBooleanField
      FieldName = 'IsVisible'
    end
    object tblQBAttribImportType: TIntegerField
      FieldName = 'ImportType'
    end
    object tblQBAttribstm: TBytesField
      FieldName = 'stm'
      ReadOnly = True
      Size = 8
    end
  end
  object Database1: TDatabase
    AliasName = 'SQLTOUR'
    Connected = True
    DatabaseName = 'SQLTourtt'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='
      'USER NAME=sa'
      'ODBC DSN=SQLTOUR'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'SQLQRYMODE='
      'LANGDRIVER='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'SCHEMA CACHE TIME=-1'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'ENABLE BCD=FALSE'
      'ROWSET SIZE=20'
      'BLOBS TO CACHE=64'
      'PASSWORD=1')
    SessionName = 'Default'
    Left = 79
    Top = 70
  end
  object Query1: TQuery
    DatabaseName = 'SQLTourtt'
    SQL.Strings = (
      'Select * from cen')
    Left = 63
    Top = 150
    object Query1inc: TSmallintField
      DisplayLabel = #1048#1076#1077#1085#1090#1080#1092#1080#1082#1072#1090#1086#1088
      FieldName = 'inc'
    end
    object Query1name: TStringField
      DisplayLabel = #1053#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      FieldName = 'name'
      Size = 64
    end
    object Query1lname: TStringField
      DisplayLabel = #1040#1085#1075#1083#1080#1089#1082#1086#1077' '#1085#1072#1080#1084#1077#1085#1086#1074#1072#1085#1080#1077
      FieldName = 'lname'
      Size = 64
    end
  end
  object Query2: TQuery
    DatabaseName = 'SQLTourtt'
    SQL.Strings = (
      ''
      'EXEC ('#39'DECLARE @st VARCHAR(1000);'
      'Select @st = REPLACE(N'#39#39'cen'#39#39', N'#39#39'dbo.'#39#39', N'#39#39#39#39');'
      ''
      
        'Select cast( value as varchar(100)) from fn_listextendedproperty' +
        '(null, N'#39#39'schema'#39#39', '#39#39'dbo'#39#39', N'#39#39'table'#39#39', '
      #9#9#9' @st, N'#39#39'column'#39#39', '#39#39'inc'#39#39')'
      #39')'
      ''
      ' ')
    Left = 25
    Top = 188
  end
  object DataSource1: TDataSource
    DataSet = Query2
    Left = 21
    Top = 152
  end
end
